home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / sweep11 / newsweep.dpr < prev    next >
Text File  |  1995-12-22  |  308b  |  21 lines
  1. program Newsweep;
  2.  
  3. uses
  4.   Forms,WinProcs,
  5.   Grid in 'GRID.PAS' {SweepForm},
  6.   Swplogic in 'SWPLOGIC.PAS';
  7.  
  8. {$R *.RES}
  9.  
  10. var
  11.   I : Integer;
  12. begin
  13.   I := 121;
  14.  
  15.   repeat
  16.     DEC(I);
  17.   until (SetMessageQueue(I) = True);
  18.   Application.CreateForm(TSweepForm, SweepForm);
  19.   Application.Run;
  20. end.
  21.